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Code Implementation 



Option Explicit 
Option Base 1 

Public OldsQ As String, News() As String, CondlsQ As String, CompValsQ As String, CapsQ As String 
Public WidgetO As String, cWidget2() As String, cWidget3() As String, cWidget4() As String, cWidgetSQ As 
String, cWidget6() As String 

Public cVal2() As String, cVal3() As String, cVal4() As String, cVal5() As String, cVal6() As String 
Public cOPl() As String, cOP2() As String, cOP3() As String, cOP4() As String, cOP5() As String, cOP60 As 
String 

Public OpenTagO As String, CloseTag() As String, cWid() As String, cOP() As String, cVal() As String 
Public DeliveryFileName As String, ProjID As String 

BEGIN DOCUMENT ASSEMBLY 
Step 100 Define variables 

Sub Cgi_Main() 

Dim fiiameln As String, fhameOut As String, TextLine As String, OutTextLine As String 
Dim Client As String, SessnID As String, starttime As Single, i As Long, Retail As String 

Dim MyDB As Database, My Table As Recordset 

Dim DFN As String, IFN As String, SFN As String, DBIndex As String, Deletions As Boolean, ptr As Long 
Dim Deletelt As Boolean 



•On Error GoTo DBError 

Step 200: Determine which legal desktop skeleton document is appropriate based on conditional 
evaluation of questionaire. 

ProjID = GetCgiValueC'ProjlD") 

Set MyDB = OpenDatabase("c:\inetpub\Databases\DocumentSet.mdb") 
Set MyTable = MyDB.OpenRecordset( _ 
"SELECT * FROM Documents WHERE ProjectName = + ProjID + dbOpenDynaset, dbReadOnly) 
'l=dbOpenTable 
MyTable.MoveFirst 

DFN = MyTable! DeliveryFileName 
IFN = MyTablellnstructionsFileName 
SFN = MyTablelSkeletonFileName 
Retail = MyTable IRetailPrice 
DBIndex = CStr(MyTable!RecordID) 

' SendHeader 'This is a test" 

' Send "<p><small>DeliveryFilename = " & MyTable! DeliveryFileName & "</p>" 
' Send "<p>InstmctionsFilename = " & MyTablellnstructionsFileName & "</p>" 
' Send "<p>SkeletonFilename = " & MyTablelSkeletonFileName & "</p>" 
• Send "<p>DBIndex = " & MyTablelRecordlD & "<br>" 
MyTable.Close 




Set MyTable = MyDB,OpenRecordset( _ 
"SELECT * FROM Insertions WHERE DocRecordlDowning = + DBIndex + ORDER BY 
SequenceNumber", dbOpenDynaset, dbReadOnly) ' 1 =dbOpenTable 

MyTable.MoveLast 'make sure to see them all 
• Send "# of tags = " & MyTable.RecordCount & "<br>" 

ReDim News(MyTable.RecordCount) 

ReDim Olds(MyTable.RecordCount) 

ReDim Condls(MyTable.RecordCount) 

ReDim CompVals(MyTable.RecordCount) 

ReDim Caps(My Table, RecordCount) 

ReDim Widget(MyTable.RecordCount) 

ReDim cWidget2(MyTable.RecordCount) 

ReDim cWidget3(MyTable.RecordCoimt) 

ReDim cWidget4(MyTable.RecordCount) 

ReDim cWidget5(MyTabIe.RecordCoimt) 

ReDim cWidget6(MyTable.RecordCount) 

ReDim cVal2(MyTable,RecordCount) 

ReDim cVal3 (My Table. RecordCount) 

ReDim cVal4(MyTable.RecordCount) 

ReDim cVal5(MyTable.RecordCount) 

ReDim cVal6(MyTable.RecordCount) 
J;; ReDim cOP 1 (MyTable.RecordCount) 
M ReDim cOP2(MyTable.RecordCoun^ 
O ReDim cOP3(MyTable,RecordCount) 
Q ReDim cOP4(MyTable.RecordCount) 

ReDim cOP5(MyTable.RecordCount) 
f y ReDim cOP6(MyTable.RecordCount) 

« Step 300: Determine which information from expert questionnaire 410 should be merged into 
legal desktop skeleton document based on conditional replacements and rules. 



iiij MyTable.MoveFirst 

p While Not MyTable.EOF 

Olds(i) = MyTablelMetaTag 

Caps(i) = MyTableiCapitalize 

If MyTable! ConditionalType = Vidget" Then 

Widget(i) = MyTable! Questionaire Widget 

Condls(i) = "no" 

If MyTableiCapitalize - "yes" Then 

News(i) = UCase(GetCgiValue(MyTable!QuestionaireWidget)) 
Else 

News(i) = GetCgiValue(MyTable!Questionaire Widget) 
End If 

if Len(News(i)) < 1 ThenNews(i) = " " 
Else 'ConditionalType = logic 



'There will always be at least one, set it up 



Widget(i) = MyTablelCondWidgetl 




Condls(i) = "l" 
News(i) = MyTablelRepText 
CompVals(i) = MyTablelCondValuel 
cOPl(i) = MyTablelCondOpl 

I 

Tsfow, check for a second conditional 

If Not IsNull(MyTable!CondWidget2) Then 
'There is a second conditional 

Condls(i) = "2" 

cWidget2(i) = MyTable!CondWidget2 

cVal2(i) = MyTable!CondValue2 

cOP2(i) - MyTable!CondOp2 

'Now, check for a third conditional 

If Not IsNull(MyTable!CondWidget3) Then 

There is a third conditional 

Condls(i) = "3" 

cWidget3(i) = MyTable!CondWidget3 

cVal3(i) = MyTable!CondValue3 

cOP3(i) = MyTable!CondOp3 

'Now check for a fourth conditional 

If Not IsNull(MyTable!CondWidget4) Then 

'There is a fourth conditional 

Condls(i) = "4" 

cWidget4(i) = MyTable!CondWidget4 

cVal4(i) = MyTable!CondValue4 

cOP4(i) MyTable!CondOp4 

'Now, check for a fifth conditional 

If Not IsNulI(MyTable!CondWidget5) Then 

'There is a fifth conditional 

Condls(i) = "5" 

cWidget5(i) = MyTable!CondWidget5 

cVal5(i) = MyTable!CondValue5 

cOP5(i) = MyTable!CondOp5 

TsTow check for a sixth conditional 

If Not IsNull(MyTabIe!CondWidget6) Then 

'There is a sixth conditional 

Condls(i) = "6" 

cWidget6(i) - MyTable!CondWidget6 
cVal6(i) = MyTable[CondValue6 
cOP6(i) - MyTable!CondOp6 
End If 
End If 
End If 
End If 
End If 
End If 
i = i+ 1 

MyTable.MoveNext 
Wend 

' For i = 1 To UBound(Olds) Step 1 
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' Send "MetaTag = " & "<" & Right(01ds(i), Len(01ds(i)) - 1) & " Widget =" & Widget(i) & " CmpV=" & 
CompVals(i) & " Cap=" & Caps(i) & " Text= " & News(i) & "Condls=" & Condls(i) & "<br>" 
' Nexti 



MyTable.Close 
'Now do deletions 
Set My Table = MyDB.OpenRecordset( _ 
"SELECT * FROM Deletions WHERE DocRecordlDowning = + DBIndex + ORDER BY 
SequenceNumber", dbOpenDynaset, dbReadOnly) ' 1 ^dbOpenTable 
IfMyTable.EOFThen 

Deletions = False 
Else 

Deletions = True 

MyTable.MoveLast 'make sure to see them all 
ReDim OpenTag(MyTable.RecordCount) 
ReDim CloseTag(MyTable.RecordCount) 
ReDim cWid(MyTable.RecordCount) 
ReDim cOP(MyTable.RecordCount) 
ReDim cVal(MyTable.RecordCount) 
MyTable.MoveFirst 
i= 1 

While NotMyTable.EOF 
OpenTag(i) = MyTablelOpeningTag 
CloseTag(i) = MyTablelClosingTag 
cWid(i) = MyTablelCondWidgetl 
cOP(i) = MyTablelCondOpl 
cVal(i) = MyTablelCondValuel 
i = i+ 1 

MyTable.MoveNext 

Wend 
End If 

MyTable.Close 
MyDB.Close 



Step 400: Provide document name 

•Send "</small>Please write down the document name. It will be usefull if this session gets intenrupted. <font 
color=""#FFOOOO"">" + Deli very FileName + "</font></p>" 

Get Naming stuff from the last page 

SessnID = GetCgiValue("SessID") 

Client = Trim$(GetCgiValue("txtfuIlname")) 

SqueezeBIanks Client 
f 

DeliveryFileName = Client + DFN + SessnID + ".rtf ' 
MakeNewSessionRecord SessnID, DeliveryFileName, Client, IFN, Retail 




Step 500 Open a personal document file on server 



fiiameln = "c:\inetpub\rawdocs\" + SFN 

fiiameOut = "c:\inetpub\vwwroot\legaladvicelme2.com\donedocs\" + DeliveryFileName 

Open fhameln For Input As #1 
Open fiiameOut For Output As #2 



Step 600: Line-by-line insertion of meta-tagged questionnaire information into skeleton 
document. 

starttime = Timer 

Do While Not EOF(l) ' Loop until end of file. 
Line Input #1, TextLine ' Read line into variable. 

If Deletions Then 'Delete lines prior to doing replacements 
For i = 1 To UBound(OpenTag) look for each tag in this line 
ptr = InStr(U TextLine, OpenTag(i), vbBinary Compare) 
If ptr o 0 Then Tound one of the opentags, do the copythru 
'Is condition to delete this section satisfied? 
Deletelt = ConditionalSatisfied(cWid(i), cVal(i), cOP(i)) 
IfDeleteltThen 

RemovePages i 
End If 

'Read a new line in any event 
Line Input #1, TextLine ' Read line into variable. 
End If 

ptr = InStr(l, TextLine, CloseTag(i), vbBinaryCompare) 
If ptr o 0 Then Tound one of the closetags, skip it 
Line Input #1, TextLine ' Read line into variable. 
End If 



If Len(TextLine) > 3 Then 'make sure its long enough to contain a tag 

OutTextLine = ReplaceAll(TextLine) 
Else 

OutTextLine = TextLine 
End If 

Print #2, OutTextLine 

If Timer > starttime + 90 Then 

sErrorDesc = "Timed out in cgi-main," 

Close #2 

Close #1 

ErrorHandler 

End 



Next i 
End If 




End If 



Loop 



Close #2 

Close #1 (Note, the foregoing code opens skeleton file, creates an empty target file, replaces meta-tags with 
questionnaire info, and executes recursively line-by-line until exhausted and target file full) 

SendRetrievalPage 

End Sub 

Sub RemovePages(i As Long) 

Dim ptr As Boolean, tLine As String 

line containing the opening tag gets dumped 

ptr-0 

'Will drop out of loop when closing tag is encountered. 
Do While ptr = 0 'complete the lawyer pages 
Line Input #1, tLine 

ptr = InStr(l, tLine, CloseTag{i), vbBinaryCompare) 
Loop 

End Sub 

Sub SqueezeBlanks(tmp As String) 
Dim ss 

Do 

ss = InStr(l,tmp, " ") 

Ifss> 1 Then 
tmp = Left$(tmp, ss - 1) + Right$(tmp, Len(tmp) - ss) 

End If 
Loop Until ss = 0 
End Sub 

Sub MakeNewSessionRecord(ID As String, DelFname As String, ClientName As String, InstrsFname As String, 
Amt As String) 

Dim MyDB As Database, MyTable As Recordset 
On Error GoTo DBError 
Set MyDB = OpenDatabase("c:\inetpub\Databases\LAL.mdb") 

Set MyTable = MyDB.OpenRecordset("SessionData", dbOpenTable) ' 1 =dbOpenTable 

'look for duplicate 
MyTable.MoveFirst 
While Not MyTable.EOF 
If Trim$(MyTable!SessionID) = ID Then 
MyTable.Edit 

MyTable! SessionID = ID + "X" 'Show record was not completed 
MyTable.Update 
End If 

MyTable.MoveNext 
Wend 




'Now make new one 
My Table, Mo veFirst 
MyTable.AddNew 
My Table! SessionID = ID 
MyTablelDeliveryFileName = DelFname 
MyTablelPayType = "Void" 
My Table! Completed = False 
My Table! ClientName = ClientName 
'MyTablelPaylnstrumentNumber = "" 
MyTablelAmountBilled = Amt 
MyTablelDeliverlnstructionsFilename = InstrsFname 
MyTabIe!Date = Now 
MyTable.Update 



MyTable.Close 
MyDB.Close 
Exit Sub 

DBError: 
MyTable.Close 
MyDB.Close 

sErrorDesc = " Error in session DB add client " 

ErrorHandler 

End 

End Sub 

Function ReplaceAll(TT As String) As String 

Dim LL As String, RR As String, ss, x As Integer, tmp As String, starttime As Single 
Dim WeDoIt As Boolean 

starttime = Timer 



WeDoIt = False 

tmp = TT 

ss = InStr(l , tmp, "<") Tf no metatag, don't do the search 
Ifss = OThen 

ReplaceAll = tmp 

Exit Function 
End If 

For X = 1 To UBound(Olds) 

If Condls(x) o "no" Then 'if condls - 1,2,3,4,5 then enter here 
There is at least one conditional 

If ConditionalSatisfied(Widget(x), CompVals(x), cOPl(x)) Then 
'First condition was met, is there a second? 
IfVal(Condls(x))>lThen 



'there is a second 



If ConditionalSatisfied(cWidget2(x), cVal2(x), cOP2(x)) Then 




The second conditional was met, is there a third? 
If Val(Condls(x)) > 2 Then 
'There is a third conditional 

If ConditionalSatisfied(cWidget3(x), cVal3(x), cOP3(x)) Then 
The third conditional was met, is there a fourth 
IfVal(Condls(x))>3Then 
'There is a fourth conditional 

If ConditionalSatisfied(cWidget4(x), cVal4(x), cOP4(x)) Then 
'Fourth conditional was met, is there a fifth? 
If Val(Condls(x)) > 4 Then 
There is a fifth 

If ConditionalSatisfied(cWidget5(x), cVal5(x), cOP5(x)) Then 
'Fifth conditional was met, is there a sixth? 
IfVal(Condls(x))>5Then 
There is a sixth 

If ConditionalSatisfied(cWidget6(x), cVal6(x), cOP5(x)) Then 
Tixth conditional was met 
WeDoIt = True 
Else 

WeDoIt = False 
End If 
Else 

WeDoIt = True 
End If 
Else 

WeDoIt = False 
End If 
Else 

WeDoIt = True 
End If 
Else 

WeDoIt = False 
End If 
Else 

WeDoIt = True 
End If 
Else 

WeDoIt = False 
End If 
Else 

WeDoIt = True 
End If 
Else 

WeDoIt = False 
End If 
Else 

WeDoIt = True 
End If 

Else ' The first conditional failed 

WeDoIt = False 
End If 
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Else ' No conditionals, just do the straight replacement 

WeDoIt = True 
End If 



IfWeDoItThen 
Do 

If Len(01ds(x)) = 0 Then Err.Raise vbObjectError + 1050, "ReplaceAll", "Zero length OldsQ in 
ReplaceAll" 

If Len(News(x)) = 0 Then Err.Raise vbObjectError +1051, "ReplaceAll", "Zero length NewsQ in 
ReplaceAll" 

ss = InStr(l, tmp, 01ds(x)) 
If ss>OThen 
Ifss> 1 Then 

LL = Left$(tmp, ss - 1) 
Else 

LL-"" 
End If 

RR = Right$(tmp, Len(tmp) - ss - Len(01ds(x)) + 1) 
tmp = LL + News(x) + RR 
End If 

If Timer > starttime + 5 Then 
sErrorDesc = "Loop exceeds 5 second timer in replace. X=" + Str$(x) + " tmp=" + tmp + ":::" + 

Str$(ss) 

ErrorHandier 
Close 
End 
End If 
Loop Until ss = 0 

End If 

Nextx 

ReplaceAll = tmp 
Exit Function 

End Function 

Function ConditionalSatisfied(Widget As String, Val As String, Op As String) As Boolean 
Select Case (Op) 

If UCase(Trim(GetCgiValue(Widget))) = UCase(Trim(Val)) Then 
ConditionalSatisfied = True 

Else 

ConditionalSatisfied = False 
End If 
Case "o" 

If UCase(Trim(GetCgiValue(Widget))) o UCase(Trim(Val)) Then 

ConditionalSatisfied = True 
Else 

ConditionalSatisfied = False 
End If 



FIG. 9.9 



Case 

If CSng(GetCgiValue( Widget)) < CSng(Val) Then 

ConditionalSatisfied = True 
Else 

ConditionalSatisfied = False 
End If 

Case 

If CSng(GetCgiValue( Widget)) > CSng(Val) Then 

ConditionalSatisfied = True 
Else 

ConditionalSatisfied = False 
End If 
End Select 
End Function 

Sub SendRetrievalPageO 



Step 470: Give client 12 his/her personalized document reference number and payment 
iZ instructions via an HTML form bearing a Submit Request button. 



4 Send "<p>Select Kit << EnterYourlnfo << <fbnt coloi=""#FFOOOO"">Payment</fbnt>>> 
fiy DocDownload</p>" 

Send "<p><strong>Your package of personalized documents has been successfully created.  Select the 
1 method of payment you wish to use.</p>" 

Ij, Send "<p>Please write down this document reference ID. <font color=""#FFOOOO"">" + DeliveryFileName + 
"</fbnt></p>" 

H Send "<p>If this session gets interrupted, use the PanicButton on the home page with this ID to resume the 

download</strong></p>" 

Send "<blockquote>" 
)^ Send "<p><a href^"".,/payment/PaymentForm.asp"">Credit Card</a></p>" 

Send "<p><a href=""../payment/tcheck.asp"">On-Line Check</a></p>" 

Send "<p><a hre^""../DBPages/SubscriberSignIn.asp?ProjII>=" + ProjID + '>Subscription</a></p>" 
Send "</blockquote>" 



SendHeader "Payment Instrument Selection' 



SendFooter 



End Sub 




